object dmMain: TdmMain
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 413
  Top = 252
  Height = 380
  Width = 750
  object scnx_Main: TSQLConnection
    ConnectionName = 'BARRA MANSA SP'
    DriverName = 'UIB FireBird15'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpUIBfire15.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=UIB FireBird15'
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=TQSPLANEAR.DYNDNS.ORG:D:\GerLic\Dados\GERLIC.FDB'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet='
      'SQLDialect=3'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=SYSDBA'
      'WaitOnLocks=True')
    VendorLib = 'fbclient.dll'
    Left = 21
  end
  object sql_Cidades: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT CIDADES.ID_CIDADE, '
      '       CIDADES.CIDADE, '
      '       CIDADES.UF, '
      '       CIDADES.DT_CADASTRO, '
      '       CIDADES.DT_ALTERACAO, '
      '       CIDADES.STATUS'
      'FROM CIDADES'
      'ORDER BY '
      '       CIDADES.ID_CIDADE')
    SQLConnection = scnx_Main
    Left = 94
  end
  object sql_Clientes: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT'
      '       CLIENTES.ID_CLIENTE, '
      '       CLIENTES.ID_FILIAL, '
      '       CLIENTES.COD_CLIENTE_TQS, '
      '       CLIENTES.RAZAO_SOCIAL, '
      '       CLIENTES.FANTASIA, '
      '       CLIENTES.CNPJ, '
      '       CLIENTES.INSCR_EST, '
      '       CLIENTES.EMAIL, '
      '       CLIENTES.CONTATO, '
      '       CLIENTES.TELEFONE, '
      '       CLIENTES.FAX, '
      '       CLIENTES.CELULAR, '
      '       CLIENTES.ID_CIDADE, '
      '       CLIENTES.ENDERECO, '
      '       CLIENTES.BAIRRO, '
      '       CLIENTES.COMPL, '
      '       CLIENTES.HAS_HD, '
      '       CLIENTES.DT_CADASTRO, '
      '       CLIENTES.DT_ALTERACAO, '
      '       CLIENTES.STATUS'
      'FROM CLIENTES')
    SQLConnection = scnx_Main
    Left = 209
  end
  object sql_Modulos: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT '
      '       MODULOS.ID_SISTEMA, '
      '       MODULOS.ID_MODULO, '
      '       MODULOS.MODULO, '
      '       MODULOS.STATUS'
      'FROM '
      '       MODULOS'
      'ORDER BY '
      '       MODULOS.ID_SISTEMA, '
      '       MODULOS.ID_MODULO')
    SQLConnection = scnx_Main
    Left = 298
  end
  object dsp_Cidades: TDataSetProvider
    DataSet = sql_Cidades
    Left = 94
    Top = 50
  end
  object dsp_Clientes: TDataSetProvider
    DataSet = sql_Clientes
    Left = 208
    Top = 50
  end
  object dsp_Modulos: TDataSetProvider
    DataSet = sql_Modulos
    Left = 298
    Top = 50
  end
  object cds_Cidades: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Cidades'
    BeforePost = cds_CidadesBeforePost
    AfterPost = cds_CidadesAfterPost
    AfterCancel = cds_CidadesAfterCancel
    AfterDelete = cds_CidadesAfterDelete
    OnNewRecord = cds_CidadesNewRecord
    Left = 94
    Top = 102
    object cds_CidadesID_CIDADE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 10
      FieldName = 'ID_CIDADE'
      Required = True
    end
    object cds_CidadesCIDADE: TStringField
      DisplayLabel = 'Cidade'
      DisplayWidth = 60
      FieldName = 'CIDADE'
      Required = True
      Size = 60
    end
    object cds_CidadesUF: TStringField
      DisplayWidth = 2
      FieldName = 'UF'
      Required = True
      Size = 2
    end
    object cds_CidadesDT_CADASTRO: TDateField
      DisplayLabel = 'Cadastrado em'
      DisplayWidth = 10
      FieldName = 'DT_CADASTRO'
      Required = True
      Visible = False
    end
    object cds_CidadesDT_ALTERACAO: TDateField
      DisplayLabel = 'Alterado em'
      DisplayWidth = 10
      FieldName = 'DT_ALTERACAO'
      Required = True
      Visible = False
    end
    object cds_CidadesSTATUS: TIntegerField
      DisplayLabel = 'Status'
      DisplayWidth = 10
      FieldName = 'STATUS'
      Required = True
      Visible = False
    end
  end
  object cds_Clientes: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Clientes'
    BeforePost = cds_ClientesBeforePost
    AfterPost = cds_ClientesAfterPost
    AfterCancel = cds_ClientesAfterCancel
    AfterDelete = cds_ClientesAfterDelete
    OnNewRecord = cds_ClientesNewRecord
    Left = 208
    Top = 102
    object cds_ClientesID_CLIENTE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 10
      FieldName = 'ID_CLIENTE'
      Required = True
    end
    object cds_ClientesID_FILIAL: TIntegerField
      DisplayLabel = 'Filial'
      FieldName = 'ID_FILIAL'
      Required = True
    end
    object cds_ClientesCOD_CLIENTE_TQS: TIntegerField
      DisplayLabel = 'C'#243'digo TQS'
      DisplayWidth = 10
      FieldName = 'COD_CLIENTE_TQS'
      Required = True
    end
    object cds_ClientesRAZAO_SOCIAL: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      DisplayWidth = 60
      FieldName = 'RAZAO_SOCIAL'
      Required = True
      Size = 60
    end
    object cds_ClientesSTATUS: TSmallintField
      DisplayLabel = 'Status'
      DisplayWidth = 4
      FieldName = 'STATUS'
      Required = True
    end
    object cds_ClientesFANTASIA: TStringField
      DisplayLabel = 'Fantasia'
      DisplayWidth = 60
      FieldName = 'FANTASIA'
      Visible = False
      Size = 60
    end
    object cds_ClientesCNPJ: TStringField
      DisplayWidth = 16
      FieldName = 'CNPJ'
      Visible = False
      Size = 16
    end
    object cds_ClientesINSCR_EST: TStringField
      DisplayLabel = 'Inscr. Estadual'
      DisplayWidth = 12
      FieldName = 'INSCR_EST'
      Visible = False
      Size = 12
    end
    object cds_ClientesEMAIL: TStringField
      DisplayLabel = 'e-mail'
      DisplayWidth = 100
      FieldName = 'EMAIL'
      Visible = False
      Size = 100
    end
    object cds_ClientesCONTATO: TStringField
      DisplayLabel = 'Contato'
      DisplayWidth = 60
      FieldName = 'CONTATO'
      Visible = False
      Size = 60
    end
    object cds_ClientesTELEFONE: TStringField
      DisplayLabel = 'Telefone'
      DisplayWidth = 16
      FieldName = 'TELEFONE'
      Visible = False
      Size = 16
    end
    object cds_ClientesFAX: TStringField
      DisplayLabel = 'Fax'
      DisplayWidth = 16
      FieldName = 'FAX'
      Visible = False
      Size = 16
    end
    object cds_ClientesCELULAR: TStringField
      DisplayLabel = 'Celular'
      DisplayWidth = 16
      FieldName = 'CELULAR'
      Visible = False
      Size = 16
    end
    object cds_ClientesID_CIDADE: TIntegerField
      DisplayLabel = 'Cidade'
      DisplayWidth = 10
      FieldName = 'ID_CIDADE'
      Required = True
      Visible = False
    end
    object cds_ClientesENDERECO: TStringField
      DisplayLabel = 'Endere'#231'o'
      DisplayWidth = 60
      FieldName = 'ENDERECO'
      Visible = False
      Size = 60
    end
    object cds_ClientesBAIRRO: TStringField
      DisplayLabel = 'Bairro'
      DisplayWidth = 60
      FieldName = 'BAIRRO'
      Visible = False
      Size = 60
    end
    object cds_ClientesCOMPL: TStringField
      DisplayLabel = 'Compl.'
      DisplayWidth = 25
      FieldName = 'COMPL'
      Visible = False
      Size = 25
    end
    object cds_ClientesDT_CADASTRO: TDateField
      DisplayWidth = 10
      FieldName = 'DT_CADASTRO'
      Required = True
      Visible = False
    end
    object cds_ClientesDT_ALTERACAO: TDateField
      DisplayWidth = 10
      FieldName = 'DT_ALTERACAO'
      Required = True
      Visible = False
    end
    object cds_ClientesCIDADE: TStringField
      DisplayWidth = 60
      FieldKind = fkLookup
      FieldName = 'CIDADE'
      LookupDataSet = cds_Cidades
      LookupKeyFields = 'ID_CIDADE'
      LookupResultField = 'CIDADE'
      KeyFields = 'ID_CIDADE'
      Visible = False
      Size = 60
      Lookup = True
    end
    object cds_ClientesUF: TStringField
      DisplayWidth = 2
      FieldKind = fkLookup
      FieldName = 'UF'
      LookupDataSet = cds_Cidades
      LookupKeyFields = 'ID_CIDADE'
      LookupResultField = 'UF'
      KeyFields = 'ID_CIDADE'
      Visible = False
      Size = 2
      Lookup = True
    end
    object cds_ClientesHAS_HD: TSmallintField
      FieldName = 'HAS_HD'
      Required = True
    end
  end
  object cds_Modulos: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Modulos'
    BeforePost = cds_ModulosBeforePost
    AfterPost = cds_ModulosAfterPost
    AfterCancel = cds_ModulosAfterCancel
    AfterDelete = cds_ModulosAfterDelete
    OnNewRecord = cds_ModulosNewRecord
    Left = 298
    Top = 102
    object cds_ModulosMODULO: TStringField
      DisplayLabel = 'M'#243'dulo'
      DisplayWidth = 30
      FieldName = 'MODULO'
      Required = True
      Size = 60
    end
    object cds_ModulosID_SISTEMA: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Sistemas'
      DisplayWidth = 20
      FieldName = 'ID_SISTEMA'
      Required = True
      OnGetText = cds_ModulosID_SISTEMAGetText
    end
    object cds_ModulosID_MODULO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 10
      FieldName = 'ID_MODULO'
      Required = True
      Visible = False
    end
    object cds_ModulosSTATUS: TSmallintField
      DisplayLabel = 'Status'
      DisplayWidth = 10
      FieldName = 'STATUS'
      Required = True
      Visible = False
    end
  end
  object sql_Next_ID_CLIENTE: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT MAX(CLIENTES.ID_CLIENTE)  + 1 AS ID_CLIENTE'
      'FROM CLIENTES')
    SQLConnection = scnx_Main
    Left = 208
    Top = 152
    object sql_Next_ID_CLIENTEID_CLIENTE: TFMTBCDField
      FieldName = 'ID_CLIENTE'
      ReadOnly = True
      Precision = 15
      Size = 0
    end
  end
  object sql_Next_ID_CIDADE: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT MAX(CIDADES.ID_CIDADE) + 1 AS ID_CIDADE'
      'FROM CIDADES')
    SQLConnection = scnx_Main
    Left = 94
    Top = 152
    object sql_Next_ID_CIDADEID_CIDADE: TIntegerField
      FieldName = 'ID_CIDADE'
      ReadOnly = True
    end
  end
  object sql_MaxCodigo: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      '')
    SQLConnection = scnx_Main
    Left = 94
    Top = 208
  end
  object sql_Clientes_Licencas: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_CLIENTE'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'SELECT '
      '       CLIENTES_LICENCAS.ID_CLIENTE, '
      '       CLIENTES_LICENCAS.ID_FILIAL, '
      '       CLIENTES_LICENCAS.ID_LICENCA, '
      '       CLIENTES_LICENCAS.ID_SISTEMA, '
      '       CLIENTES_LICENCAS.ID_MODULO, '
      '       CLIENTES_LICENCAS.QUANTIDADE, '
      '       CLIENTES_LICENCAS.DT_VALIDADE, '
      '       CLIENTES_LICENCAS.CHAVE_01, '
      '       CLIENTES_LICENCAS.CHAVE_02, '
      '       CLIENTES_LICENCAS.CHAVE_03, '
      '       CLIENTES_LICENCAS.CHAVE_04, '
      '       CLIENTES_LICENCAS.DT_CADASTRO, '
      '       CLIENTES_LICENCAS.DT_ALTERACAO, '
      '       CLIENTES_LICENCAS.STATUS'
      'FROM CLIENTES_LICENCAS'
      'WHERE'
      '  (CLIENTES_LICENCAS.ID_CLIENTE = :ID_CLIENTE)'
      'ORDER BY'
      '       CLIENTES_LICENCAS.ID_LICENCA,'
      '       CLIENTES_LICENCAS.ID_SISTEMA,'
      '       CLIENTES_LICENCAS.ID_MODULO')
    SQLConnection = scnx_Main
    Left = 392
  end
  object dsp_Clientes_Licencas: TDataSetProvider
    DataSet = sql_Clientes_Licencas
    Left = 392
    Top = 50
  end
  object cds_Clientes_Licencas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_CLIENTE'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Clientes_Licencas'
    BeforePost = cds_Clientes_LicencasBeforePost
    AfterPost = cds_Clientes_LicencasAfterPost
    AfterCancel = cds_Clientes_LicencasAfterCancel
    AfterDelete = cds_Clientes_LicencasAfterDelete
    OnCalcFields = cds_Clientes_LicencasCalcFields
    OnNewRecord = cds_Clientes_LicencasNewRecord
    Left = 392
    Top = 103
    object cds_Clientes_LicencasID_FILIAL: TIntegerField
      DisplayLabel = 'Filial'
      FieldName = 'ID_FILIAL'
      Required = True
    end
    object cds_Clientes_LicencasID_LICENCA: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 10
      FieldName = 'ID_LICENCA'
      Required = True
    end
    object cds_Clientes_LicencasMODULO: TStringField
      DisplayLabel = 'M'#243'dulo'
      DisplayWidth = 30
      FieldKind = fkLookup
      FieldName = 'MODULO'
      LookupDataSet = cds_Modulos
      LookupKeyFields = 'ID_MODULO'
      LookupResultField = 'MODULO'
      KeyFields = 'ID_MODULO'
      Size = 60
      Lookup = True
    end
    object cds_Clientes_LicencasDT_VALIDADE: TDateField
      DisplayLabel = 'Data Validade'
      DisplayWidth = 10
      FieldName = 'DT_VALIDADE'
      Required = True
    end
    object cds_Clientes_LicencasQUANTIDADE: TIntegerField
      DisplayLabel = 'Qtde'
      DisplayWidth = 10
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object cds_Clientes_LicencasCHAVE_01: TStringField
      DisplayLabel = 'Chave A'
      DisplayWidth = 10
      FieldName = 'CHAVE_01'
      Size = 10
    end
    object cds_Clientes_LicencasCHAVE_02: TStringField
      DisplayLabel = 'Chave B'
      DisplayWidth = 10
      FieldName = 'CHAVE_02'
      Size = 10
    end
    object cds_Clientes_LicencasCHAVE_03: TStringField
      DisplayLabel = 'Chave C'
      DisplayWidth = 10
      FieldName = 'CHAVE_03'
      Size = 10
    end
    object cds_Clientes_LicencasCHAVE_04: TStringField
      DisplayLabel = 'Chave D'
      DisplayWidth = 10
      FieldName = 'CHAVE_04'
      Size = 10
    end
    object cds_Clientes_LicencasID_CLIENTE: TIntegerField
      DisplayLabel = 'Cliente'
      DisplayWidth = 10
      FieldName = 'ID_CLIENTE'
      Required = True
      Visible = False
    end
    object cds_Clientes_LicencasCOD_CLIENTE_TQS: TIntegerField
      DisplayLabel = 'C'#243'digo Tqs'
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'COD_CLIENTE_TQS'
      LookupDataSet = cds_Clientes
      LookupKeyFields = 'ID_CLIENTE'
      LookupResultField = 'COD_CLIENTE_TQS'
      KeyFields = 'ID_CLIENTE'
      Visible = False
      Lookup = True
    end
    object cds_Clientes_LicencasRAZAO_SOCIAL: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      DisplayWidth = 60
      FieldKind = fkLookup
      FieldName = 'RAZAO_SOCIAL'
      LookupDataSet = cds_Clientes
      LookupKeyFields = 'ID_CLIENTE'
      LookupResultField = 'RAZAO_SOCIAL'
      KeyFields = 'ID_CLIENTE'
      Visible = False
      Size = 60
      Lookup = True
    end
    object cds_Clientes_LicencasID_SISTEMA: TIntegerField
      Alignment = taLeftJustify
      DisplayWidth = 10
      FieldName = 'ID_SISTEMA'
      Required = True
      Visible = False
      OnGetText = cds_Clientes_LicencasID_SISTEMAGetText
    end
    object cds_Clientes_LicencasID_MODULO: TIntegerField
      DisplayWidth = 10
      FieldName = 'ID_MODULO'
      Required = True
      Visible = False
    end
    object cds_Clientes_LicencasDT_CADASTRO: TDateField
      DisplayWidth = 10
      FieldName = 'DT_CADASTRO'
      Required = True
      Visible = False
    end
    object cds_Clientes_LicencasDT_ALTERACAO: TDateField
      DisplayWidth = 10
      FieldName = 'DT_ALTERACAO'
      Required = True
      Visible = False
    end
    object cds_Clientes_LicencasSTATUS: TSmallintField
      DisplayWidth = 10
      FieldName = 'STATUS'
      Required = True
      Visible = False
    end
    object cds_Clientes_LicencasKEYSTR: TStringField
      FieldKind = fkCalculated
      FieldName = 'KEYSTR'
      Size = 15
      Calculated = True
    end
  end
  object DCP_blowfish1: TDCP_blowfish
    Id = 5
    Algorithm = 'Blowfish'
    MaxKeySize = 448
    BlockSize = 64
    Left = 584
  end
  object DCP_sha2561: TDCP_sha256
    Id = 28
    Algorithm = 'SHA256'
    HashSize = 256
    Left = 584
    Top = 56
  end
  object sql_Configuracoes: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT CONFIGURACOES.ID_CONFIGURACAO, '
      '       CONFIGURACOES.RAZAO_SOCIAL, '
      '       CONFIGURACOES.FANTASIA, '
      '       CONFIGURACOES.HOME, '
      '       CONFIGURACOES.CONTATO, '
      '       CONFIGURACOES.EMAIL, '
      '       CONFIGURACOES.SMTP, '
      '       CONFIGURACOES.PORTA_SMTP, '
      '       CONFIGURACOES.USER_AUTENTICATION, '
      '       CONFIGURACOES.PASSWORD_AUTENTICATION, '
      '       CONFIGURACOES.USER_NAME, '
      '       CONFIGURACOES.PASS_WORD, '
      '       CONFIGURACOES.DIRETORIO_TMP'
      'FROM CONFIGURACOES')
    SQLConnection = scnx_Main
    Left = 496
  end
  object dsp_Configuracoes: TDataSetProvider
    DataSet = sql_Configuracoes
    Left = 496
    Top = 48
  end
  object cds_Configuracoes: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Configuracoes'
    OnNewRecord = cds_ConfiguracoesNewRecord
    Left = 496
    Top = 104
    object cds_ConfiguracoesID_CONFIGURACAO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'ID_CONFIGURACAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cds_ConfiguracoesRAZAO_SOCIAL: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      FieldName = 'RAZAO_SOCIAL'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 60
    end
    object cds_ConfiguracoesFANTASIA: TStringField
      DisplayLabel = 'Fantasia'
      FieldName = 'FANTASIA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_ConfiguracoesHOME: TStringField
      DisplayLabel = 'Home'
      FieldName = 'HOME'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_ConfiguracoesCONTATO: TStringField
      DisplayLabel = 'Contato'
      FieldName = 'CONTATO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_ConfiguracoesEMAIL: TStringField
      DisplayLabel = 'email'
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_ConfiguracoesSMTP: TStringField
      DisplayLabel = 'Servidor de Smtp'
      FieldName = 'SMTP'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_ConfiguracoesPORTA_SMTP: TIntegerField
      DisplayLabel = 'Porta Smtp'
      FieldName = 'PORTA_SMTP'
      ProviderFlags = [pfInUpdate]
    end
    object cds_ConfiguracoesUSER_AUTENTICATION: TStringField
      DisplayLabel = 'Senha de Autentica'#231#227'o'
      FieldName = 'USER_AUTENTICATION'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_ConfiguracoesPASSWORD_AUTENTICATION: TStringField
      DisplayLabel = 'Senha de Autentica'#231#227'o'
      FieldName = 'PASSWORD_AUTENTICATION'
      Size = 50
    end
    object cds_ConfiguracoesUSER_NAME: TStringField
      DisplayLabel = 'Usu'#225'rio'
      FieldName = 'USER_NAME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_ConfiguracoesPASS_WORD: TStringField
      DisplayLabel = 'Senha'
      FieldName = 'PASS_WORD'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_ConfiguracoesDIRETORIO_TMP: TStringField
      DisplayLabel = 'Diret'#243'rio Tempor'#225'rio'
      FieldName = 'DIRETORIO_TMP'
      ProviderFlags = [pfInUpdate]
      Size = 255
    end
  end
  object XMLDocument1: TXMLDocument
    Left = 588
    Top = 112
    DOMVendorDesc = 'MSXML'
  end
end
